63000 DV=PEEK(186):IFDV<8THENDV=8
63010 DELAY=116:POKE53280,0:POKE53281,0
63020 PRINT"[147]";
63030 FORI=8TO23:PRINT"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:NEXT
63040 PRINT"":FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
63050 POKE214,9:PRINT"[145]"TAB(2)"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
63060 FORI=1TO11:PRINTTAB(2)"[159]                                    [155][146][223]":NEXT
63070 PRINTTAB(2)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][155][223]"
63080 PRINT"[155][169][169][169][169][169][169][169][151][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223]"
63090 POKE214,10:PRINT"[145][159]";
63100 FORI=1TO11:READA$
63110 PRINTSPC(20-LEN(A$)/2)""A$:A$="":NEXT
63120 DELAY=DELAY+1:J=PEEK(56320)AND16:GETA$:IF(A$="")ANDJ<>0ANDDEL<116THEN63120
63130 A$="VEGGIES.BIT"
63140 DATA"[204][207][193][196][211][212][193][210] [214][197][199][197][212][193][194][204][197][211]","BY [202]AMES [212]. [202]ONES & [202]EFF [204]. [202]ONES
63150 [131]"  (LEN)1995 BY (null)OFTDISK (null)UBLISHING"
63160 [131]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
63170 DATA"   [212]HIS IS THE COPYRIGHTED WORK OF
63180 [131]"(null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$, (null)(null)(null) INTENDED
63190 DATA"FOR DISTRIBUTION AS PUBLIC DOMAIN ","OR SHAREWARE.  [198]OR INFORMATION ON
63200 [131]"(null)(null)ATNSTR$(null)(null)ATN(null) AND (null)(null)ATNSTR$(null)(null)ATN(null) PRODUCTS,   "
63210 [131]"CALL (null)(null)ASC(null)STR$RIGHT$(null)(null) LENUSTOMER SERVICE AT"
63220 [131]"1-800-594-3370 OR 1-318-221-8718
63230 FORI=DVTODV:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN63250
63240 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN63260
63250 NEXT:PRINT""A$" NOT FOUND!":POKE186,8:END
63260 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"";
63270 PRINT"P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
63280 PRINT"R[213]:";:POKE631,13:POKE632,145:POKE633,145:POKE634,145
63290 POKE635,145:POKE636,13:POKE198,6